home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 038a / remfax.zip / ASKPWD.BAT < prev    next >
DOS Batch File  |  1993-02-15  |  2KB  |  84 lines

  1. @echo off
  2.  
  3. ZUTIL P ASKPWD.ZVD /F400 /D%MV_BEEPLEN% /P%MV_PORT%
  4.  
  5. :START
  6. if %1x==x goto OK
  7.  
  8. rem --- Ask digit
  9. if %1==0 goto 0
  10. if %1==1 goto 1
  11. if %1==2 goto 2
  12. if %1==3 goto 3
  13. if %1==4 goto 4
  14. if %1==5 goto 5
  15. if %1==6 goto 6
  16. if %1==7 goto 7
  17. if %1==8 goto 8
  18. if %1==9 goto 9
  19.  
  20. :NEXT 
  21. shift
  22. goto START
  23.  
  24. :0
  25. ZUTIL R /P%MV_PORT% /F400 /D%MV_BEEPLEN% /S1 /T20 *.ZYX
  26. if errorlevel 11 goto ERROR
  27. if errorlevel 10 goto NEXT
  28. goto ERROR
  29. :1
  30. ZUTIL R /P%MV_PORT% /F400 /D%MV_BEEPLEN% /S1 /T20 *.ZYX
  31. if errorlevel 12 goto ERROR
  32. if errorlevel 11 goto NEXT
  33. goto ERROR
  34. :2
  35. ZUTIL R /P%MV_PORT% /F400 /D%MV_BEEPLEN% /S1 /T20 *.ZYX
  36. if errorlevel 13 goto ERROR
  37. if errorlevel 12 goto NEXT
  38. goto ERROR
  39. :3
  40. ZUTIL R /P%MV_PORT% /F400 /D%MV_BEEPLEN% /S1 /T20 *.ZYX
  41. if errorlevel 14 goto ERROR
  42. if errorlevel 13 goto NEXT
  43. goto ERROR
  44. :4
  45. ZUTIL R /P%MV_PORT% /F400 /D%MV_BEEPLEN% /S1 /T20 *.ZYX
  46. if errorlevel 15 goto ERROR
  47. if errorlevel 14 goto NEXT
  48. goto ERROR
  49. :5
  50. ZUTIL R /P%MV_PORT% /F400 /D%MV_BEEPLEN% /S1 /T20 *.ZYX
  51. if errorlevel 16 goto ERROR
  52. if errorlevel 15 goto NEXT
  53. goto ERROR
  54. :6
  55. ZUTIL R /P%MV_PORT% /F400 /D%MV_BEEPLEN% /S1 /T20 *.ZYX
  56. if errorlevel 17 goto ERROR
  57. if errorlevel 16 goto NEXT
  58. goto ERROR
  59. :7
  60. ZUTIL R /P%MV_PORT% /F400 /D%MV_BEEPLEN% /S1 /T20 *.ZYX
  61. if errorlevel 18 goto ERROR
  62. if errorlevel 17 goto NEXT
  63. goto ERROR
  64. :8
  65. ZUTIL R /P%MV_PORT% /F400 /D%MV_BEEPLEN% /S1 /T20 *.ZYX
  66. if errorlevel 19 goto ERROR
  67. if errorlevel 18 goto NEXT
  68. goto ERROR
  69. :9
  70. ZUTIL R /P%MV_PORT% /F400 /D%MV_BEEPLEN% /S1 /T20 *.ZYX
  71. if errorlevel 20 goto ERROR
  72. if errorlevel 19 goto NEXT
  73. goto ERROR
  74.  
  75. :OK
  76. set MV_PWDOK=Y
  77. goto BYE
  78.  
  79. :ERROR
  80. set MV_PWDOK=
  81.  
  82. :BYE
  83. 
  84.